www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_add_class.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE3 { color: #FFFFFF; font-weight: bold; } --> </style> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <form action="D_chk_add_class.asp" method="post" target="_self"> <table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px"> <tr> <td> <table height="30" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999"> <% biao="[ND_pic_or_sp_class]" biaog="[ND_userGroup]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),4)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if pid=request("pid")&"" function next_cen(pid_list,deepth) set rs=server.CreateObject("adodb.recordset") pppcid="-123" if pid_list<>"" then ppplista=split(pid_list,",") ppplistaubd=ubound(ppplista)-1 pppcid=ppplista(ppplistaubd) end if rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')))) and sys_content_type='"&sys_content_type&"' order by clng(orders) asc",conn,1,1 if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa)) else p_id=0 end if do while not rs.eof pid_list222=rs("parent_id_list")&","&rs("id")&"," deepth222=rs("deepth")+1 set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')))) and sys_content_type='"&sys_content_type&"' order by clng(orders) asc",conn,1,1 if rs2.eof then if pid_list<>"" then lista=split(pid_list,",") numa=ubound(lista) p_id=cstr(lista(numa-1)) else p_id=0 end if if p_id=0 then p_id=-1 'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=pid then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% if not rs.eof then rs.movenext if rs.eof or rs.bof then 'response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function else need_benji_next=1 end if else 'response.write "<level0 id="""&rs("id")&""" parentTypeID=""" 'if deepth=0 then response.write "-1" else response.write p_id 'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf %> <option value="<%=rs("id")%>" <%if cstr(rs("id"))=pid then response.write "selected"%>> <%for iiiii1=1 to cint(deepth222) if iiiii1=cint(deepth222) then %> ├<% else %> │<% end if next %><%=rs("classname")%> </option> <% call next_cen(pid_list222,deepth222) if not rs.eof then rs.movenext need_benji_next=1 if rs.eof or rs.bof then 'if deepth<>0 then response.write "</level0>" 'call next_cen_class(pid_list222,deepth222) exit function end if end if if need_benji_next=0 then exit do end if need_benji_next=0 loop end function %> <script language="javascript"> function show1(yn){ ss=yn; if (ss=="1"){ document.getElementById("classurl1").style.display=''; } else { document.getElementById("classurl1").style.display='none'; } } </script> <tr> <td height="30" align="center" class="adminth" colspan="2"><span class="STYLE3">添加分类 </span></td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">分类名称: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"><input type="text" size=25 value="" name="nme"/></td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">分类标题模式: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <select size="1" name="ColorModes"> <option value="0" selected>请选择颜色</option> <option style="background-color:#FF0000;color: #FF0000" value='#FF0000' >#FF0000</option> <option style="background-color:#0000FF;color: #0000FF" value='#0000FF' >#0000FF</option> <option style="background-color:#008800;color: #008800" value='#008800' >#008800</option> <option style="background-color:#FFFF00;color: #FFFF00" value='#FFFF00' >#FFFF00</option> <option style="background-color:#9900FF;color: #9900FF" value='#9900FF' >#9900FF</option> <option style="background-color:#808080;color: #808080" value='#808080' >#808080</option> <option style="background-color:#00FFFF;color: #00FFFF" value='#00FFFF' >#00FFFF</option> <option style="background-color:#998566;color: #998566" value='#998566' >#998566</option> <option style="background-color:#FFCC00;color: #FFCC00" value='#FFCC00' >#FFCC00</option> </select> 字体: <select size="1" name="FontModes"> <option value="0" >请选择字体</option> <option value="1" >粗体</option> <option value="2" >斜体</option> <option value="3" >下划线</option> <option value="4" >粗体+斜体</option> <option value="5" >粗体+下划线</option> <option value="6" >斜体+下划线</option> </select> </td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">所属分类: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <select size="1" name="classid"> <option value="xx" <%if pid="" then response.write "selected"%>>作为一级分类</option> <% call next_cen("",0) %> </select> </td> </tr> <% set rsss=server.CreateObject("adodb.recordset") rsss.open "select top 1 * from "&biao&" where parent_id='"&pid&"' order by orders desc",conn,1,1 if rsss.eof then ncxx="1" else ncxx=cstr(rsss("orders")+1) end if %> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">顺序号: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <input type="text" size=10 value="<%=ncxx%>" name="orders"/> </td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">连接目标: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <input type="radio" value="0" name="LinkTarget" checked> 本窗口打开 <input type="radio" name="LinkTarget" value="1" > 新窗口打开 </td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">是否转向连接: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <input type="radio" name="isoutLink" value="0" onclick="show1(0)" checked> 否 <input type="radio" name="isoutLink" onclick="show1(1)" value="1"> 是 </td> </tr> <tr id="classurl1" style="display:none"> <td width="165" height="30" align="center" bgcolor="#ffffff">转向连接URL </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <input type="text" name="TurnLinkUrl" size="45" value=""> </td> </tr> <tr> <td width="165" height="30" align="center" bgcolor="#ffffff">用户组: </td> <td width="565" height="30" align="left" bgcolor="#EDF8FE"> <select size="1" name="admingroup"> <% set rs44=server.CreateObject("adodb.recordset") rs44.open "select * from "&biaog&" order by clng(grades) asc",conn,1,1 do while not rs44.eof %> <option value='<%=rs44("id")%>' ><%=rs44("name")%></option> <%rs44.movenext loop %> </select> </td> </tr> <tr> <td width="700" align="center" colspan="2"> <input type="hidden" name="pid" value="<%=request("pid")%>"> <input type="hidden" name="sys_content_type" value="<%=request("sys_content_type")%>"> <input type="button" onClick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button> <input type="submit" value="添 加" name="B2" class=Button> </td> </tr> </table> </td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_list') </script> <% AJAXcloseLoader() %>